/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / think-c / think-ref.elc

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 74 68 69 6e 6b 2d | 72 65 66 2e 65 6c 63 00 |..think-|ref.elc.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 00 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 11 9d 00 | 00 01 3c a9 ed bd 40 a9 |........|..<...@.|
|00000060| ee b6 93 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 39 aa 00 00 |........|....9...|
|00000080| 0a 28 64 65 66 75 6e 20 | 74 63 3a 74 68 69 6e 6b |.(defun |tc:think|
|00000090| 2d 72 65 66 2d 6c 6f 6f | 6b 75 70 2d 70 61 67 65 |-ref-loo|kup-page|
|000000a0| 20 28 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (s) (by|te-code |
|000000b0| 22 c6 18 c7 0a c8 5c 22 | 19 c6 1b c7 c9 ca 21 c8 |".....\"|......!.|
|000000c0| 5c 22 1c cb cc 8d 1d 08 | 85 1b 00 cd 08 21 88 0d |\"......|.....!..|
|000000d0| 2d 87 22 20 5b 65 76 65 | 6e 74 20 72 65 70 6c 79 |-." [eve|nt reply|
|000000e0| 20 73 69 7a 65 6f 66 2d | 41 70 70 6c 65 45 76 65 | sizeof-|AppleEve|
|000000f0| 6e 74 20 74 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |nt trans|actionID|
|00000100| 20 70 73 6e 20 72 65 73 | 75 6c 74 20 6e 69 6c 20 | psn res|ult nil |
|00000110| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 30 20 63 3a |make-str|ing 0 c:|
|00000120| 73 69 7a 65 6f 66 20 50 | 72 6f 63 65 73 73 53 65 |sizeof P|rocessSe|
|00000130| 72 69 61 6c 4e 75 6d 62 | 65 72 20 70 61 6e 69 63 |rialNumb|er panic|
|00000140| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 cc cd 08 | (byte-c|ode "...|
|00000150| 21 21 88 cc ce cf cf d0 | 23 19 09 41 40 89 12 88 |!!......|#..A@...|
|00000160| 09 41 41 89 13 88 09 40 | 29 21 88 cc d1 0a 0c 0d |.AA....@|)!......|
|00000170| 0e 06 0e 06 47 25 21 88 | cc d1 0a 0e 07 0e 08 08 |....G%!.|........|
|00000180| 08 47 25 21 88 cc d2 0a | 0e 09 5c 22 21 88 0b d3 |.G%!....|..\"!...|
|00000190| d4 42 d5 d6 42 d7 0e 06 | 42 45 42 0e 0a 42 89 16 |.B..B...|BEB..B..|
|000001a0| 0a 88 0e 0b 87 22 20 5b | 70 73 6e 20 74 65 6d 70 |....." [|psn temp|
|000001b0| 20 65 76 65 6e 74 20 74 | 72 61 6e 73 61 63 74 69 | event t|ransacti|
|000001c0| 6f 6e 49 44 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |onID key|DirectOb|
|000001d0| 6a 65 63 74 20 74 79 70 | 65 43 68 61 72 20 73 20 |ject typ|eChar s |
|000001e0| 6b 65 79 50 72 6f 63 65 | 73 73 53 65 72 69 61 6c |keyProce|ssSerial|
|000001f0| 4e 75 6d 62 65 72 20 74 | 79 70 65 50 72 6f 63 65 |Number t|ypeProce|
|00000200| 73 73 53 65 72 69 61 6c | 4e 75 6d 62 65 72 20 72 |ssSerial|Number r|
|00000210| 65 70 6c 79 20 61 65 2d | 68 69 73 74 6f 72 79 20 |eply ae-|history |
|00000220| 6e 6f 45 72 72 20 74 68 | 72 6f 77 2d 65 72 72 20 |noErr th|row-err |
|00000230| 47 65 74 43 75 72 72 65 | 6e 74 50 72 6f 63 65 73 |GetCurre|ntProces|
|00000240| 73 20 61 65 2d 63 72 65 | 61 74 65 2d 61 70 70 6c |s ae-cre|ate-appl|
|00000250| 65 2d 65 76 65 6e 74 2d | 69 6e 74 65 72 6e 61 6c |e-event-|internal|
|00000260| 20 22 44 61 6e 52 22 20 | 22 52 45 46 20 22 20 41 | "DanR" |"REF " A|
|00000270| 45 50 75 74 50 61 72 61 | 6d 50 74 72 20 74 63 3a |EPutPara|mPtr tc:|
|00000280| 74 68 69 6e 6b 2d 72 65 | 66 2d 73 65 6e 64 2d 65 |think-re|f-send-e|
|00000290| 76 65 6e 74 20 64 65 73 | 63 72 69 70 74 69 6f 6e |vent des|cription|
|000002a0| 20 22 74 68 69 6e 6b 2d | 72 65 66 2d 70 61 67 65 | "think-|ref-page|
|000002b0| 2d 6c 6f 6f 6b 75 70 22 | 20 68 61 6e 64 6c 65 72 |-lookup"| handler|
|000002c0| 20 74 63 3a 6c 6f 6f 6b | 75 70 2d 70 61 67 65 2d | tc:look|up-page-|
|000002d0| 72 65 70 6c 79 20 6b 65 | 79 5d 20 31 35 29 20 41 |reply ke|y] 15) A|
|000002e0| 45 44 69 73 70 6f 73 65 | 44 65 73 63 5d 20 35 29 |EDispose|Desc] 5)|
|000002f0| 29 0a 0a 28 64 65 66 75 | 6e 20 74 63 3a 6c 6f 6f |)..(defu|n tc:loo|
|00000300| 6b 75 70 2d 70 61 67 65 | 2d 72 65 70 6c 79 20 28 |kup-page|-reply (|
|00000310| 65 76 65 6e 74 20 68 69 | 73 74 6f 72 79 29 20 28 |event hi|story) (|
|00000320| 62 79 74 65 2d 63 6f 64 | 65 20 22 ca cb cc 5c 22 |byte-cod|e "...\"|
|00000330| 18 ca cb cc 5c 22 19 ca | cb cc 5c 22 1a cd 0c 0d |....\"..|..\"....|
|00000340| 0e 06 09 08 08 47 0a 26 | 07 1b 0b 0e 07 55 83 28 |.....G.&|.....U.(|
|00000350| 00 0e 08 82 30 00 ce 0e | 09 08 5c 22 88 0e 08 2c |....0...|..\"...,|
|00000360| 87 22 20 5b 65 72 72 6f | 72 2d 6e 75 6d 62 65 72 |." [erro|r-number|
|00000370| 2d 64 61 74 61 20 72 65 | 74 75 72 6e 65 64 54 79 |-data re|turnedTy|
|00000380| 70 65 20 61 63 74 75 61 | 6c 53 69 7a 65 20 65 72 |pe actua|lSize er|
|00000390| 72 20 65 76 65 6e 74 20 | 6b 65 79 45 72 72 6f 72 |r event |keyError|
|000003a0| 4e 75 6d 62 65 72 20 74 | 79 70 65 4c 6f 6e 67 49 |Number t|ypeLongI|
|000003b0| 6e 74 65 67 65 72 20 65 | 72 72 41 45 44 65 73 63 |nteger e|rrAEDesc|
|000003c0| 4e 6f 74 46 6f 75 6e 64 | 20 6e 6f 45 72 72 20 68 |NotFound| noErr h|
|000003d0| 69 73 74 6f 72 79 20 6d | 61 6b 65 2d 73 74 72 69 |istory m|ake-stri|
|000003e0| 6e 67 20 34 20 30 20 41 | 45 47 65 74 50 61 72 61 |ng 4 0 A|EGetPara|
|000003f0| 6d 50 74 72 20 74 63 3a | 74 68 69 6e 6b 2d 72 65 |mPtr tc:|think-re|
|00000400| 66 2d 61 6e 6e 6f 75 6e | 63 65 2d 65 72 72 6f 72 |f-announ|ce-error|
|00000410| 5d 20 31 31 29 29 0a 0a | 28 64 65 66 75 6e 20 74 |] 11))..|(defun t|
|00000420| 63 3a 74 68 69 6e 6b 2d | 72 65 66 2d 61 6e 6e 6f |c:think-|ref-anno|
|00000430| 75 6e 63 65 2d 65 72 72 | 6f 72 20 28 68 69 73 74 |unce-err|or (hist|
|00000440| 6f 72 79 20 65 72 72 6f | 72 2d 6e 75 6d 62 65 72 |ory erro|r-number|
|00000450| 2d 64 61 74 61 29 20 28 | 62 79 74 65 2d 63 6f 64 |-data) (|byte-cod|
|00000460| 65 20 22 c6 08 21 88 c7 | 0a c8 c9 23 19 ca c3 08 |e "..!..|...#....|
|00000470| 5c 22 1b 0b 85 18 00 cb | 0b 41 cc 51 1c 09 cd 55 |\"......|.A.Q...U|
|00000480| 83 32 00 ce cf 0b 83 2b | 00 d0 0c 50 82 2c 00 d1 |.2.....+|...P.,..|
|00000490| d2 51 21 82 79 00 09 d3 | 55 83 3e 00 ce d4 21 82 |.Q!.y...|U.>...!.|
|000004a0| 79 00 09 d5 55 83 58 00 | ce d6 d7 d8 d9 0b 83 51 |y...U.X.|.......Q|
|000004b0| 00 0c 82 52 00 d1 da 25 | 21 82 79 00 09 db 55 83 |...R...%|!.y...U.|
|000004c0| 72 00 ce d6 dc dd 0b 83 | 6a 00 0c 82 6b 00 d1 de |r.......|j...k...|
|000004d0| df 25 21 82 79 00 ce e0 | e1 09 21 e2 23 2b 87 22 |.%!.y...|..!.#+."|
|000004e0| 20 5b 68 69 73 74 6f 72 | 79 20 65 72 72 6f 72 2d | [histor|y error-|
|000004f0| 6e 75 6d 62 65 72 20 65 | 72 72 6f 72 2d 6e 75 6d |number e|rror-num|
|00000500| 62 65 72 2d 64 61 74 61 | 20 6b 65 79 20 66 20 74 |ber-data| key f t|
|00000510| 20 61 6e 6e 6f 75 6e 63 | 65 2d 72 65 70 6c 79 20 | announc|e-reply |
|00000520| 65 78 74 72 61 63 74 2d | 69 6e 74 65 72 6e 61 6c |extract-|internal|
|00000530| 20 30 20 6c 6f 6e 67 20 | 61 73 73 6f 63 20 22 d2 | 0 long |assoc ".|
|00000540| 22 20 22 d3 22 20 2d 31 | 20 69 6e 73 65 72 74 2d |" "." -1| insert-|
|00000550| 72 65 70 6c 79 20 22 20 | 20 54 48 49 4e 4b 20 52 |reply " | THINK R|
|00000560| 65 66 65 72 65 6e 63 65 | 20 63 6f 75 6c 64 20 6e |eference| could n|
|00000570| 6f 74 20 66 69 6e 64 20 | 74 68 65 20 6b 65 79 77 |ot find |the keyw|
|00000580| 6f 72 64 22 20 22 20 22 | 20 22 22 20 22 20 69 6e |ord" " "| "" " in|
|00000590| 20 61 6e 79 20 6f 66 20 | 69 74 73 20 64 61 74 61 | any of |its data|
|000005a0| 62 61 73 65 73 2e 0a 22 | 20 2d 32 20 22 20 20 54 |bases.."| -2 "  T|
|000005b0| 48 49 4e 4b 20 52 65 66 | 65 72 65 6e 63 65 20 63 |HINK Ref|erence c|
|000005c0| 6f 75 6c 64 20 6e 6f 74 | 20 66 69 6e 64 20 69 74 |ould not| find it|
|000005d0| 73 20 64 61 74 61 62 61 | 73 65 73 2e 0a 22 20 2d |s databa|ses.." -|
|000005e0| 34 20 63 6f 6e 63 61 74 | 20 22 20 20 54 48 49 4e |4 concat| "  THIN|
|000005f0| 4b 20 52 65 66 65 72 65 | 6e 63 65 20 64 69 64 6e |K Refere|nce didn|
|00000600| 27 74 20 68 61 76 65 20 | 61 20 74 65 6d 70 6c 61 |'t have |a templa|
|00000610| 74 65 20 22 20 22 6f 72 | 20 49 6e 73 69 64 65 20 |te " "or| Inside |
|00000620| 4d 61 63 69 6e 74 6f 73 | 68 0a 20 20 70 61 67 65 |Macintos|h.  page|
|00000630| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 22 20 22 74 | number |for " "t|
|00000640| 68 65 20 6b 65 79 77 6f | 72 64 20 22 20 22 2e 0a |he keywo|rd " "..|
|00000650| 22 20 2d 35 20 22 20 20 | 54 48 49 4e 4b 20 52 65 |" -5 "  |THINK Re|
|00000660| 66 65 72 65 6e 63 65 20 | 64 69 64 6e 27 74 20 68 |ference |didn't h|
|00000670| 61 76 65 20 61 20 74 65 | 6d 70 6c 61 74 65 20 66 |ave a te|mplate f|
|00000680| 6f 72 20 74 68 65 20 22 | 20 22 6b 65 79 77 6f 72 |or the "| "keywor|
|00000690| 64 22 20 22 2c 20 62 75 | 74 20 22 20 22 69 74 20 |d" ", bu|t " "it |
|000006a0| 64 69 64 20 72 65 74 75 | 72 6e 0a 20 20 61 6e 20 |did retu|rn.  an |
|000006b0| 49 6e 73 69 64 65 20 4d | 61 63 69 6e 74 6f 73 68 |Inside M|acintosh|
|000006c0| 20 70 61 67 65 20 6e 75 | 6d 62 65 72 0a 22 20 22 | page nu|mber." "|
|000006d0| 20 20 45 72 72 6f 72 20 | 22 20 65 72 72 6f 72 2d |  Error |" error-|
|000006e0| 73 74 72 69 6e 67 20 22 | 0a 22 5d 20 31 34 29 29 |string "|."] 14))|
|000006f0| 0a 0a 28 64 65 66 75 6e | 20 74 63 3a 74 68 69 6e |..(defun| tc:thin|
|00000700| 6b 2d 72 65 66 2d 63 6f | 70 79 2d 74 65 6d 70 6c |k-ref-co|py-templ|
|00000710| 61 74 65 20 28 73 29 20 | 28 62 79 74 65 2d 63 6f |ate (s) |(byte-co|
|00000720| 64 65 20 22 c5 18 c6 0a | c7 5c 22 19 c5 1b c8 c9 |de "....|.\".....|
|00000730| 8d 1c 08 85 14 00 ca 08 | 21 88 0c 2c 87 22 20 5b |........|!..,." [|
|00000740| 65 76 65 6e 74 20 72 65 | 70 6c 79 20 73 69 7a 65 |event re|ply size|
|00000750| 6f 66 2d 41 70 70 6c 65 | 45 76 65 6e 74 20 74 72 |of-Apple|Event tr|
|00000760| 61 6e 73 61 63 74 69 6f | 6e 49 44 20 72 65 73 75 |ansactio|nID resu|
|00000770| 6c 74 20 6e 69 6c 20 6d | 61 6b 65 2d 73 74 72 69 |lt nil m|ake-stri|
|00000780| 6e 67 20 30 20 70 61 6e | 69 63 20 28 62 79 74 65 |ng 0 pan|ic (byte|
|00000790| 2d 63 6f 64 65 20 22 c9 | ca cb cb cc 23 18 08 41 |-code ".|....#..A|
|000007a0| 40 89 11 88 08 41 41 89 | 12 88 08 40 29 21 88 c9 |@....AA.|...@)!..|
|000007b0| cd 09 0b 0c 0d 0d 47 25 | 21 88 c9 ce 09 0e 06 5c |......G%|!......\|
|000007c0| 22 21 88 0a cf d0 42 d1 | d2 42 d3 0d 42 45 42 0e |"!....B.|.B..BEB.|
|000007d0| 07 42 89 16 07 88 0e 08 | 87 22 20 5b 74 65 6d 70 |.B......|." [temp|
|000007e0| 20 65 76 65 6e 74 20 74 | 72 61 6e 73 61 63 74 69 | event t|ransacti|
|000007f0| 6f 6e 49 44 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |onID key|DirectOb|
|00000800| 6a 65 63 74 20 74 79 70 | 65 43 68 61 72 20 73 20 |ject typ|eChar s |
|00000810| 72 65 70 6c 79 20 61 65 | 2d 68 69 73 74 6f 72 79 |reply ae|-history|
|00000820| 20 6e 6f 45 72 72 20 74 | 68 72 6f 77 2d 65 72 72 | noErr t|hrow-err|
|00000830| 20 61 65 2d 63 72 65 61 | 74 65 2d 61 70 70 6c 65 | ae-crea|te-apple|
|00000840| 2d 65 76 65 6e 74 2d 69 | 6e 74 65 72 6e 61 6c 20 |-event-i|nternal |
|00000850| 22 44 61 6e 52 22 20 22 | 54 4d 50 4c 22 20 41 45 |"DanR" "|TMPL" AE|
|00000860| 50 75 74 50 61 72 61 6d | 50 74 72 20 74 63 3a 74 |PutParam|Ptr tc:t|
|00000870| 68 69 6e 6b 2d 72 65 66 | 2d 73 65 6e 64 2d 65 76 |hink-ref|-send-ev|
|00000880| 65 6e 74 20 64 65 73 63 | 72 69 70 74 69 6f 6e 20 |ent desc|ription |
|00000890| 22 74 68 69 6e 6b 2d 72 | 65 66 2d 63 6f 70 79 2d |"think-r|ef-copy-|
|000008a0| 74 65 6d 70 6c 61 74 65 | 22 20 68 61 6e 64 6c 65 |template|" handle|
|000008b0| 72 20 74 63 3a 63 6f 70 | 79 2d 74 65 6d 70 6c 61 |r tc:cop|y-templa|
|000008c0| 74 65 2d 72 65 70 6c 79 | 20 6b 65 79 5d 20 31 31 |te-reply| key] 11|
|000008d0| 29 20 41 45 44 69 73 70 | 6f 73 65 44 65 73 63 5d |) AEDisp|oseDesc]|
|000008e0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 74 63 3a | 3))..(d|efun tc:|
|000008f0| 63 6f 70 79 2d 74 65 6d | 70 6c 61 74 65 2d 72 65 |copy-tem|plate-re|
|00000900| 70 6c 79 20 28 65 76 65 | 6e 74 20 68 69 73 74 6f |ply (eve|nt histo|
|00000910| 72 79 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ry) (byt|e-code "|
|00000920| d1 d2 d3 5c 22 18 d1 d2 | d3 5c 22 19 d1 d2 d3 5c |...\"...|.\"....\|
|00000930| 22 1a d4 0c 0d 0e 06 09 | 08 08 47 0a 26 07 1b 0b |".......|..G.&...|
|00000940| 0e 07 55 83 97 00 d1 d5 | d6 21 d3 5c 22 1e 08 d1 |..U.....|.!.\"...|
|00000950| d5 d6 21 d3 5c 22 1e 09 | d7 0c 0e 0a 0e 08 0e 09 |..!.\"..|........|
|00000960| 24 1b d8 0b 21 3f 83 48 | 00 0b 82 93 00 d9 0e 09 |$...!?.H|........|
|00000970| d3 d6 23 1e 0b d1 0e 0b | d3 5c 22 1e 0c d4 0c 0e |..#.....|.\".....|
|00000980| 0a 0e 0d 0e 08 0e 0c 0e | 0b 0e 09 26 07 1b d8 0b |........|...&....|
|00000990| 21 3f 83 73 00 0b 82 92 | 00 8a da db 21 1e 0e 0e |!?.s....|....!...|
|000009a0| 0e 71 88 dc 20 88 0e 0c | 63 88 dd 65 64 5c 22 88 |.q.. ...|c..ed\".|
|000009b0| de 0e 0e 21 29 29 88 0e | 0f 2b 2b 82 9f 00 df 0e |...!))..|.++.....|
|000009c0| 10 08 5c 22 88 0e 0f 2c | 87 22 20 5b 65 72 72 6f |..\"...,|." [erro|
|000009d0| 72 2d 6e 75 6d 62 65 72 | 2d 64 61 74 61 20 72 65 |r-number|-data re|
|000009e0| 74 75 72 6e 65 64 54 79 | 70 65 20 61 63 74 75 61 |turnedTy|pe actua|
|000009f0| 6c 53 69 7a 65 20 65 72 | 72 20 65 76 65 6e 74 20 |lSize er|r event |
|00000a00| 6b 65 79 45 72 72 6f 72 | 4e 75 6d 62 65 72 20 74 |keyError|Number t|
|00000a10| 79 70 65 4c 6f 6e 67 49 | 6e 74 65 67 65 72 20 65 |ypeLongI|nteger e|
|00000a20| 72 72 41 45 44 65 73 63 | 4e 6f 74 46 6f 75 6e 64 |rrAEDesc|NotFound|
|00000a30| 20 72 65 73 75 6c 74 2d | 74 79 70 65 20 72 65 73 | result-|type res|
|00000a40| 75 6c 74 2d 73 69 7a 65 | 20 6b 65 79 44 69 72 65 |ult-size| keyDire|
|00000a50| 63 74 4f 62 6a 65 63 74 | 20 61 63 74 75 61 6c 2d |ctObject| actual-|
|00000a60| 73 69 7a 65 20 73 20 74 | 79 70 65 43 68 61 72 20 |size s t|ypeChar |
|00000a70| 74 68 69 6e 6b 2d 72 65 | 66 2d 62 75 66 20 6e 6f |think-re|f-buf no|
|00000a80| 45 72 72 20 68 69 73 74 | 6f 72 79 20 6d 61 6b 65 |Err hist|ory make|
|00000a90| 2d 73 74 72 69 6e 67 20 | 34 20 30 20 41 45 47 65 |-string |4 0 AEGe|
|00000aa0| 74 50 61 72 61 6d 50 74 | 72 20 63 3a 73 69 7a 65 |tParamPt|r c:size|
|00000ab0| 6f 66 20 6c 6f 6e 67 20 | 41 45 53 69 7a 65 4f 66 |of long |AESizeOf|
|00000ac0| 50 61 72 61 6d 20 7a 65 | 72 6f 70 20 65 78 74 72 |Param ze|rop extr|
|00000ad0| 61 63 74 2d 69 6e 74 65 | 72 6e 61 6c 20 67 65 74 |act-inte|rnal get|
|00000ae0| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00000af0| 2a 54 48 49 4e 4b 20 52 | 65 66 2a 22 20 65 72 61 |*THINK R|ef*" era|
|00000b00| 73 65 2d 62 75 66 66 65 | 72 20 6b 69 6c 6c 2d 72 |se-buffe|r kill-r|
|00000b10| 65 67 69 6f 6e 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |egion ki|ll-buffe|
|00000b20| 72 20 74 63 3a 74 68 69 | 6e 6b 2d 72 65 66 2d 61 |r tc:thi|nk-ref-a|
|00000b30| 6e 6e 6f 75 6e 63 65 2d | 65 72 72 6f 72 5d 20 32 |nnounce-|error] 2|
|00000b40| 31 29 29 0a 0a 28 64 65 | 66 75 6e 20 74 63 3a 74 |1))..(de|fun tc:t|
|00000b50| 68 69 6e 6b 2d 72 65 66 | 2d 73 65 6e 64 2d 65 76 |hink-ref|-send-ev|
|00000b60| 65 6e 74 20 28 65 76 65 | 6e 74 20 72 65 70 6c 79 |ent (eve|nt reply|
|00000b70| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c7 09 |) (byte-|code "..|
|00000b80| 0a 5c 22 18 08 0b 55 83 | 49 00 c8 c9 21 83 44 00 |.\"...U.|I...!.D.|
|00000b90| ca cb 21 1c 0c 0d 55 83 | 26 00 cc cd ce 50 21 88 |..!...U.|&....P!.|
|00000ba0| 0e 06 82 40 00 cf d0 21 | 88 c7 09 0a 5c 22 18 08 |...@...!|....\"..|
|00000bb0| 0b 55 83 3e 00 cc d1 21 | 88 0e 06 82 3f 00 08 29 |.U.>...!|....?..)|
|00000bc0| 29 82 46 00 0e 06 82 4a | 00 08 29 87 22 20 5b 65 |).F....J|..)." [e|
|00000bd0| 72 72 20 65 76 65 6e 74 | 20 72 65 70 6c 79 20 63 |rr event| reply c|
|00000be0| 6f 6e 6e 65 63 74 69 6f | 6e 49 6e 76 61 6c 69 64 |onnectio|nInvalid|
|00000bf0| 20 6c 61 75 6e 63 68 2d | 65 72 72 20 66 6e 66 45 | launch-|err fnfE|
|00000c00| 72 72 20 6e 6f 45 72 72 | 20 74 63 3a 74 68 69 6e |rr noErr| tc:thin|
|00000c10| 6b 2d 72 65 66 2d 73 65 | 6e 64 2d 65 76 65 6e 74 |k-ref-se|nd-event|
|00000c20| 2d 69 6e 74 65 72 6e 61 | 6c 20 79 2d 6f 72 2d 6e |-interna|l y-or-n|
|00000c30| 2d 70 20 22 54 68 69 6e | 6b 20 52 65 66 65 72 65 |-p "Thin|k Refere|
|00000c40| 6e 63 65 20 69 73 20 6e | 6f 74 20 72 75 6e 6e 69 |nce is n|ot runni|
|00000c50| 6e 67 2e 20 20 54 72 79 | 20 74 6f 20 6c 61 75 6e |ng.  Try| to laun|
|00000c60| 63 68 3f 20 22 20 6c 61 | 75 6e 63 68 2d 61 70 70 |ch? " la|unch-app|
|00000c70| 6c 69 63 61 74 69 6f 6e | 20 22 54 48 49 4e 4b 20 |lication| "THINK |
|00000c80| 52 65 66 65 72 65 6e 63 | 65 22 20 6d 65 73 73 61 |Referenc|e" messa|
|00000c90| 67 65 20 22 50 75 74 20 | 61 6e 20 61 6c 69 61 73 |ge "Put |an alias|
|00000ca0| 20 74 6f 20 54 48 49 4e | 4b 20 52 65 66 65 72 65 | to THIN|K Refere|
|00000cb0| 6e 63 65 20 6e 61 6d 65 | 64 20 d2 54 48 49 4e 4b |nce name|d .THINK|
|00000cc0| 20 22 20 22 52 65 66 65 | 72 65 6e 63 65 d3 20 69 | " "Refe|rence. i|
|00000cd0| 6e 20 74 68 65 20 65 74 | 63 20 66 6f 6c 64 65 72 |n the et|c folder|
|00000ce0| 20 6f 66 20 45 6d 61 63 | 73 2e 22 20 73 6c 65 65 | of Emac|s." slee|
|00000cf0| 70 2d 66 6f 72 20 35 20 | 22 43 6f 75 6c 64 6e 27 |p-for 5 |"Couldn'|
|00000d00| 74 20 6c 61 75 6e 63 68 | 20 54 48 49 4e 4b 20 52 |t launch| THINK R|
|00000d10| 65 66 65 72 65 6e 63 65 | 22 5d 20 38 29 29 0a 0a |eference|"] 8))..|
|00000d20| 28 64 65 66 75 6e 20 74 | 63 3a 74 68 69 6e 6b 2d |(defun t|c:think-|
|00000d30| 72 65 66 2d 73 65 6e 64 | 2d 65 76 65 6e 74 2d 69 |ref-send|-event-i|
|00000d40| 6e 74 65 72 6e 61 6c 20 | 28 65 76 65 6e 74 20 72 |nternal |(event r|
|00000d50| 65 70 6c 79 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |eply) (b|yte-code|
|00000d60| 20 22 c5 08 09 0a 0b 5c | 5c 0c c6 c6 c6 26 07 87 | ".....\|\....&..|
|00000d70| 22 20 5b 65 76 65 6e 74 | 20 72 65 70 6c 79 20 6b |" [event| reply k|
|00000d80| 41 45 51 75 65 75 65 52 | 65 70 6c 79 20 6b 41 45 |AEQueueR|eply kAE|
|00000d90| 43 61 6e 49 6e 74 65 72 | 61 63 74 20 6b 41 45 4e |CanInter|act kAEN|
|00000da0| 6f 72 6d 61 6c 50 72 69 | 6f 72 69 74 79 20 41 45 |ormalPri|ority AE|
|00000db0| 53 65 6e 64 20 30 5d 20 | 38 29 29 0a 0a 28 64 65 |Send 0] |8))..(de|
|00000dc0| 66 75 6e 20 74 63 3a 64 | 6f 2d 74 68 69 6e 6b 2d |fun tc:d|o-think-|
|00000dd0| 72 65 66 2d 6c 6f 6f 6b | 75 70 2d 70 61 67 65 20 |ref-look|up-page |
|00000de0| 28 6d 65 6e 75 20 69 74 | 65 6d 29 20 28 62 79 74 |(menu it|em) (byt|
|00000df0| 65 2d 63 6f 64 65 20 22 | c1 20 3f 83 0c 00 c2 c3 |e-code "|. ?.....|
|00000e00| 21 82 18 00 c4 c5 60 c1 | 20 5c 22 21 18 c6 08 21 |!.....`.| \"!...!|
|00000e10| 29 87 22 20 5b 65 72 72 | 20 6d 61 72 6b 20 6d 65 |)." [err| mark me|
|00000e20| 73 73 61 67 65 20 22 54 | 68 65 20 77 6f 72 64 20 |ssage "T|he word |
|00000e30| 74 6f 20 6c 6f 6f 6b 75 | 70 20 73 68 6f 75 6c 64 |to looku|p should|
|00000e40| 20 61 70 70 65 61 72 20 | 62 65 74 77 65 65 6e 20 | appear |between |
|00000e50| 70 6f 69 6e 74 20 61 6e | 64 20 6d 61 72 6b 2e 22 |point an|d mark."|
|00000e60| 20 74 63 3a 74 68 69 6e | 6b 2d 72 65 66 2d 6c 6f | tc:thin|k-ref-lo|
|00000e70| 6f 6b 75 70 2d 70 61 67 | 65 20 62 75 66 66 65 72 |okup-pag|e buffer|
|00000e80| 2d 73 75 62 73 74 72 69 | 6e 67 20 72 65 70 6f 72 |-substri|ng repor|
|00000e90| 74 2d 65 72 72 6f 72 2d | 69 6e 2d 6d 65 73 73 61 |t-error-|in-messa|
|00000ea0| 67 65 2d 6c 69 6e 65 5d | 20 37 29 29 0a 0a 28 64 |ge-line]| 7))..(d|
|00000eb0| 65 66 75 6e 20 74 63 3a | 64 6f 2d 74 68 69 6e 6b |efun tc:|do-think|
|00000ec0| 2d 72 65 66 2d 63 6f 70 | 79 2d 74 65 6d 70 6c 61 |-ref-cop|y-templa|
|00000ed0| 74 65 20 28 6d 65 6e 75 | 20 69 74 65 6d 29 20 28 |te (menu| item) (|
|00000ee0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 c3 21 18 c4 |byte-cod|e "..!..|
|00000ef0| 08 21 19 c5 09 21 2a 87 | 22 20 5b 73 20 65 72 72 |.!...!*.|" [s err|
|00000f00| 20 63 61 6c 6c 2d 69 6e | 74 65 72 61 63 74 69 76 | call-in|teractiv|
|00000f10| 65 6c 79 20 28 6c 61 6d | 62 64 61 20 28 78 29 20 |ely (lam|bda (x) |
|00000f20| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 73 54 |(interac|tive "sT|
|00000f30| 65 6d 70 6c 61 74 65 20 | 74 6f 20 66 69 6e 64 3a |emplate |to find:|
|00000f40| 20 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | ") (byt|e-code "|
|00000f50| c1 88 08 87 22 20 5b 78 | 20 6e 69 6c 5d 20 31 29 |...." [x| nil] 1)|
|00000f60| 29 20 74 63 3a 74 68 69 | 6e 6b 2d 72 65 66 2d 63 |) tc:thi|nk-ref-c|
|00000f70| 6f 70 79 2d 74 65 6d 70 | 6c 61 74 65 20 72 65 70 |opy-temp|late rep|
|00000f80| 6f 72 74 2d 65 72 72 6f | 72 2d 69 6e 2d 6d 65 73 |ort-erro|r-in-mes|
|00000f90| 73 61 67 65 2d 6c 69 6e | 65 5d 20 34 29 29 0a 0a |sage-lin|e] 4))..|
|00000fa0| 28 64 65 66 76 61 72 20 | 74 63 3a 69 6e 73 74 61 |(defvar |tc:insta|
|00000fb0| 6c 6c 65 64 2d 74 68 69 | 6e 6b 2d 72 65 66 2d 6d |lled-thi|nk-ref-m|
|00000fc0| 65 6e 75 20 6e 69 6c 29 | 0a 0a 28 69 66 20 28 6e |enu nil)|..(if (n|
|00000fd0| 6f 74 20 74 63 3a 69 6e | 73 74 61 6c 6c 65 64 2d |ot tc:in|stalled-|
|00000fe0| 74 68 69 6e 6b 2d 72 65 | 66 2d 6d 65 6e 75 29 20 |think-re|f-menu) |
|00000ff0| 28 70 72 6f 67 6e 20 28 | 64 65 66 76 61 72 20 73 |(progn (|defvar s|
|00001000| 70 65 63 69 61 6c 2d 6d | 65 6e 75 20 6e 69 6c 29 |pecial-m|enu nil)|
|00001010| 20 28 64 65 66 76 61 72 | 20 6d 65 6e 75 2d 69 6e | (defvar| menu-in|
|00001020| 73 74 61 6c 6c 2d 68 6f | 6f 6b 73 20 6e 69 6c 29 |stall-ho|oks nil)|
|00001030| 20 28 73 65 74 71 20 74 | 63 3a 74 68 69 6e 6b 2d | (setq t|c:think-|
|00001040| 72 65 66 2d 6d 65 6e 75 | 2d 69 6e 73 74 61 6c 6c |ref-menu|-install|
|00001050| 2d 68 6f 6f 6b 73 20 28 | 6c 69 73 74 20 28 71 75 |-hooks (|list (qu|
|00001060| 6f 74 65 20 28 41 70 70 | 65 6e 64 4d 65 6e 75 20 |ote (App|endMenu |
|00001070| 73 70 65 63 69 61 6c 2d | 6d 65 6e 75 20 22 28 2d |special-|menu "(-|
|00001080| 22 20 6e 69 6c 29 29 20 | 28 71 75 6f 74 65 20 28 |" nil)) |(quote (|
|00001090| 41 70 70 65 6e 64 4d 65 | 6e 75 20 73 70 65 63 69 |AppendMe|nu speci|
|000010a0| 61 6c 2d 6d 65 6e 75 20 | 22 46 69 6e 64 20 49 6e |al-menu |"Find In|
|000010b0| 20 54 48 49 4e 4b 20 52 | 65 66 65 72 65 6e 63 65 | THINK R|eference|
|000010c0| 2f 2d 22 20 28 71 75 6f | 74 65 20 74 63 3a 64 6f |/-" (quo|te tc:do|
|000010d0| 2d 74 68 69 6e 6b 2d 72 | 65 66 2d 6c 6f 6f 6b 75 |-think-r|ef-looku|
|000010e0| 70 2d 70 61 67 65 29 29 | 29 20 28 71 75 6f 74 65 |p-page))|) (quote|
|000010f0| 20 28 41 70 70 65 6e 64 | 4d 65 6e 75 20 73 70 65 | (Append|Menu spe|
|00001100| 63 69 61 6c 2d 6d 65 6e | 75 20 22 50 6c 61 63 65 |cial-men|u "Place|
|00001110| 20 54 65 6d 70 6c 61 74 | 65 20 49 6e 20 4b 69 6c | Templat|e In Kil|
|00001120| 6c 20 52 69 6e 67 2e 2e | 2e 22 20 28 71 75 6f 74 |l Ring..|." (quot|
|00001130| 65 20 74 63 3a 64 6f 2d | 74 68 69 6e 6b 2d 72 65 |e tc:do-|think-re|
|00001140| 66 2d 63 6f 70 79 2d 74 | 65 6d 70 6c 61 74 65 29 |f-copy-t|emplate)|
|00001150| 29 29 29 29 20 28 69 66 | 20 73 70 65 63 69 61 6c |)))) (if| special|
|00001160| 2d 6d 65 6e 75 20 28 6d | 61 70 63 61 72 20 28 66 |-menu (m|apcar (f|
|00001170| 75 6e 63 74 69 6f 6e 20 | 65 76 61 6c 29 20 74 63 |unction |eval) tc|
|00001180| 3a 74 68 69 6e 6b 2d 72 | 65 66 2d 6d 65 6e 75 2d |:think-r|ef-menu-|
|00001190| 69 6e 73 74 61 6c 6c 2d | 68 6f 6f 6b 73 29 20 28 |install-|hooks) (|
|000011a0| 73 65 74 71 20 6d 65 6e | 75 2d 69 6e 73 74 61 6c |setq men|u-instal|
|000011b0| 6c 2d 68 6f 6f 6b 73 20 | 28 61 70 70 65 6e 64 20 |l-hooks |(append |
|000011c0| 74 63 3a 74 68 69 6e 6b | 2d 72 65 66 2d 6d 65 6e |tc:think|-ref-men|
|000011d0| 75 2d 69 6e 73 74 61 6c | 6c 2d 68 6f 6f 6b 73 20 |u-instal|l-hooks |
|000011e0| 6d 65 6e 75 2d 69 6e 73 | 74 61 6c 6c 2d 68 6f 6f |menu-ins|tall-hoo|
|000011f0| 6b 73 29 29 29 20 28 73 | 65 74 71 20 74 63 3a 69 |ks))) (s|etq tc:i|
|00001200| 6e 73 74 61 6c 6c 65 64 | 2d 74 68 69 6e 6b 2d 72 |nstalled|-think-r|
|00001210| 65 66 2d 6d 65 6e 75 20 | 74 29 29 29 0a 00 00 00 |ef-menu |t)))....|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00001290| 00 00 05 88 09 77 69 6e | 64 6f 77 2e 65 6c 00 00 |.....win|dow.el..|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 0d 74 68 69 6e 6b 2d 72 | 65 66 2e 65 6c 63 02 00 |.think-r|ef.elc..|
|000012c0| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|000012d0| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 a9 ed bd 40 00 00 | 11 9d 00 00 01 3c 00 00 |.....@..|.....<..|
|00001300| 00 00 00 00 00 00 00 00 | 00 00 02 cd 25 00 00 00 |........|....%...|
|00001310| 05 fb 08 61 62 6f 75 74 | 2e 65 6c 00 00 00 00 00 |...about|.el.....|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 01 c4 25 00 | 00 00 05 fb 10 61 70 70 |......%.|.....app|
|00001340| 6c 65 2d 65 76 65 6e 74 | 73 2e 65 6c 63 00 00 00 |le-event|s.elc...|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 cc |........|........|
|00001360| 25 00 00 00 05 fb 0e 41 | 70 70 6c 65 45 76 65 6e |%......A|ppleEven|
|00001370| 74 73 2e 65 6c 00 00 00 | 00 00 00 00 00 00 00 00 |ts.el...|........|
|00001380| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00001390| 01 0a 00 00 00 0a 00 00 | 00 32 01 ce 8f a8 0d 3a |........|.2.....:|
|000013a0| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|000013b0| bf f4 ff ff 00 00 00 00 | 01 d4 ed 44 00 00 00 00 |........|...D....|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+